home *** CD-ROM | disk | FTP | other *** search
/ Aminet 16 / Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso / Aminet / comm / misc / CheckModem.lha / ZP_Netcall.rexx < prev   
OS/2 REXX Batch file  |  1996-10-05  |  434b  |  18 lines
  1. /*
  2.    $VER: CheckModem_before_Netcall
  3. */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. IF ~SHOW('LIBRARIES','rexxreqtools.library') THEN
  8.   IF ~ADDLIB('rexxreqtools.library',0,-30,0) THEN
  9.     EXIT
  10.  
  11.  
  12. ADDRESS COMMAND "c:CheckModem artser.device 0"
  13. IF (rc) ~= 0 THEN DO
  14.  CALL rtezrequest("Konnte serielle Schnittstelle nicht öffnen!", " ENDE ","Schnittstellenfehler" rc,"rt_pubscrname=Workbench")
  15. EXIT
  16. END
  17. ADDRESS COMMAND "Zodiac:ZP NETCALL=AufDerStelle QUIET EXIT"
  18.